﻿Imports System.Data.SqlClient
Imports _1065144_1065164.DataProvider
Imports System.Data

Public Class frmTimKiemNha


    Private Sub frmTimKiemNha_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim listDanhSachNha As New DataTable()

        listDanhSachNha = ThongTinNhaBUS.HienThiGidView()
        gidtimkiem.DataSource = listDanhSachNha


        Dim danhsachloainha As New List(Of LoaiNhaDTO)
        danhsachloainha = LoaiNhaBUS.GetAll()
        cbxTimLoaiNha.DataSource = danhsachloainha
        cbxTimLoaiNha.ValueMember = "iMaLoaiNha"
        cbxTimLoaiNha.DisplayMember = "strTenLoaiNha"
    End Sub
    'Private Sub btnTimKiemLoaiNha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimKiemLoaiNha.Click
    '    If Not txtTimLoaiNha.Text = "" Then
    '        Dim loainha As String = txtTimLoaiNha.Text
    '        Dim list As New List(Of ThongTinNhaDTO)
    '        list = ThongTinNhaBUS.TKTheoMaNha(loainha)
    '        If list.Count = 0 Then
    '            MessageBox.Show(" Xin lỗi!Không tìm thấy thông tin!Vui lòng nhập lại!! ", " THÔNG BÁO ")
    '        Else
    '            gidtimkiem.DataSource = list
    '        End If
    '    Else
    '        MessageBox.Show(" Bạn chưa nhập vào loại nhà cần tìm !", " THÔNG BÁO ")
    '    End If
    'End Sub

 
    Private Sub btnTraCuuMaNha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTraCuuMaNha.Click
        If Not txtthongtintim.Text = "" And IsNumeric(txtthongtintim.Text) Then
            Dim manha As Integer = txtthongtintim.Text
            Dim list As New DataTable()
            list = ThongTinNhaBUS.TKTheoMaNha(manha)
            If list.Rows.Count = 0 Then
                MessageBox.Show("Xin lỗi! Không tìm thấy thông tin!Vui lòng nhập lại!!", "THÔNG BÁO")
            Else
                gidtimkiem.DataSource = list
            End If
        Else
            MessageBox.Show(" Bạn chưa nhập vào mã nhà cần tìm! ", " THÔNG BÁO ")
        End If
    End Sub

  
    Private Sub btnTraCuuloainha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTraCuuloainha.Click
        'If Not txtthongtintim.Text = "" And IsNumeric(txtthongtintim.Text) Then
        Dim loainha As String = cbxTimLoaiNha.SelectedValue
        Dim list As New DataTable()
        list = ThongTinNhaBUS.TKTheoLoaiNha(loainha)
        'If list.Rows.Count = 0 Then
        '    MessageBox.Show("Xin lỗi! Không tìm thấy thông tin!Vui lòng nhập lại!!", "THÔNG BÁO")
        'Else
        gidtimkiem.DataSource = list
        'End If
        'Else
        'MessageBox.Show(" Bạn chưa nhập vào mã nhà cần tìm! ", " THÔNG BÁO ")
        'End If
    End Sub

 
End Class

